home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.08 Aug 89 / PREC Code / globals.p < prev    next >
Encoding:
Text File  |  1989-06-14  |  762 b   |  40 lines  |  [TEXT/PJMM]
  1. unit globals;
  2.  
  3. interface
  4.  
  5.     var
  6.         MyWindow: WindowPtr;           {Window pointer}
  7.         TitleFieldhndl: TEHandle;          {Text Edit field handle}
  8.         WidthFieldhndl: TEHandle;          {Text Edit field handle}
  9.         HeightFieldhndl: TEHandle;      {Text Edit field handle}
  10.         reply: SFReply;
  11.  
  12.     type
  13.  
  14.         realprec = record
  15.                 numberofbuttons: signedbyte;
  16.                 Size: array[1..6] of point;
  17.                 title: packed array[0..255] of char;
  18.             end;
  19.  
  20.  
  21.         realprec4ptr = ^realprec;
  22.         realprec4hndl = ^realprec4ptr;
  23.  
  24.         prec = record
  25.                 numberofbuttons: integer;
  26.                 Size: array[1..6] of point;
  27.                 Title: array[1..6] of str255;
  28.             end;
  29.         prec4ptr = ^prec;
  30.         prec4hndl = ^prec4ptr;
  31.  
  32.     var
  33.         therealprec4: realprec;
  34.         therealprec4hndl: realprec4hndl;
  35.         prec4: prec;
  36.         theprec4hndl: prec4hndl;
  37.  
  38. implementation
  39.  
  40. end.